home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_am.inc < prev    next >
Encoding:
Text File  |  1998-08-30  |  11.0 KB  |  726 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuò\Ī
  4. *
  5. *    ÆåìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. mid_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0022,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     addi.w    #16,d2
  39.     addq.w    #1,d7
  40.     move.w    d1,(a6)+
  41.     move.w    d2,(a6)+
  42.     move.w    d7,(a6)+
  43.     move.w    #$0003,(a6)+
  44.  
  45.     rts
  46. @@:
  47.     addi.w    #$4022,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     addi.w    #16,d2
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     addi.w    #16,d2
  61.     addq.w    #1,d7
  62.     move.w    d1,(a6)+
  63.     move.w    d2,(a6)+
  64.     move.w    d7,(a6)+
  65.     move.w    #$0003,(a6)+
  66.  
  67.     addi.w    #16,d2
  68.     addq.w    #1,d7
  69.     move.w    d1,(a6)+
  70.     move.w    d2,(a6)+
  71.     move.w    d7,(a6)+
  72.     move.w    #$0003,(a6)+
  73.  
  74.     rts
  75. *---------------------------------------
  76. mid_a:
  77.     move.w    C_X(a1),d1
  78.     move.w    C_Y(a1),d2
  79.     subq.w    #8,d1
  80.     subi.w    #32,d2
  81.     tst.w    C_LR_F(a1)
  82.     bne    @f
  83.  
  84.     addi.w    #$0022,d7
  85.     move.w    d1,(a6)+
  86.     move.w    d2,(a6)+
  87.     move.w    d7,(a6)+
  88.     move.w    #$0003,(a6)+
  89.  
  90.     addi.w    #16,d2
  91.     addq.w    #1,d7
  92.     move.w    d1,(a6)+
  93.     move.w    d2,(a6)+
  94.     move.w    d7,(a6)+
  95.     move.w    #$0003,(a6)+
  96.  
  97.     addi.w    #16,d2
  98.     addq.w    #1,d7
  99.     move.w    d1,(a6)+
  100.     move.w    d2,(a6)+
  101.     move.w    d7,(a6)+
  102.     move.w    #$0003,(a6)+
  103.  
  104.     addi.w    #16,d2
  105.     addq.w    #1,d7
  106.     move.w    d1,(a6)+
  107.     move.w    d2,(a6)+
  108.     move.w    d7,(a6)+
  109.     move.w    #$0003,(a6)+
  110.  
  111.     addi.w    #16,d1
  112.     subi.w    #32,d2
  113.     addq.w    #1,d7
  114.     move.w    d1,(a6)+
  115.     move.w    d2,(a6)+
  116.     move.w    d7,(a6)+
  117.     move.w    #$0003,(a6)+
  118.  
  119.     addi.w    #16,d1
  120.     addq.w    #1,d7
  121.     move.w    d1,(a6)+
  122.     move.w    d2,(a6)+
  123.     move.w    d7,(a6)+
  124.     move.w    #$0003,(a6)+
  125.     rts
  126. @@:
  127.     addi.w    #$4022,d7
  128.     move.w    d1,(a6)+
  129.     move.w    d2,(a6)+
  130.     move.w    d7,(a6)+
  131.     move.w    #$0003,(a6)+
  132.  
  133.     addi.w    #16,d2
  134.     addq.w    #1,d7
  135.     move.w    d1,(a6)+
  136.     move.w    d2,(a6)+
  137.     move.w    d7,(a6)+
  138.     move.w    #$0003,(a6)+
  139.  
  140.     addi.w    #16,d2
  141.     addq.w    #1,d7
  142.     move.w    d1,(a6)+
  143.     move.w    d2,(a6)+
  144.     move.w    d7,(a6)+
  145.     move.w    #$0003,(a6)+
  146.  
  147.     addi.w    #16,d2
  148.     addq.w    #1,d7
  149.     move.w    d1,(a6)+
  150.     move.w    d2,(a6)+
  151.     move.w    d7,(a6)+
  152.     move.w    #$0003,(a6)+
  153.  
  154.     subi.w    #16,d1
  155.     subi.w    #32,d2
  156.     addq.w    #1,d7
  157.     move.w    d1,(a6)+
  158.     move.w    d2,(a6)+
  159.     move.w    d7,(a6)+
  160.     move.w    #$0003,(a6)+
  161.  
  162.     subi.w    #16,d1
  163.     addq.w    #1,d7
  164.     move.w    d1,(a6)+
  165.     move.w    d2,(a6)+
  166.     move.w    d7,(a6)+
  167.     move.w    #$0003,(a6)+
  168.     rts
  169. *---------------------------------------
  170. mid_t:
  171.     move.w    C_X(a1),d1
  172.     move.w    C_Y(a1),d2
  173.     subq.w    #8,d1
  174.     subi.w    #32,d2
  175.     tst.w    C_LR_F(a1)
  176.     bne    @f
  177.  
  178.     addi.w    #$0022,d7
  179.     move.w    d1,(a6)+
  180.     move.w    d2,(a6)+
  181.     move.w    d7,(a6)+
  182.     move.w    #$0003,(a6)+
  183.  
  184.     addi.w    #16,d2
  185.     addq.w    #1,d7
  186.     move.w    d1,(a6)+
  187.     move.w    d2,(a6)+
  188.     move.w    d7,(a6)+
  189.     move.w    #$0003,(a6)+
  190.  
  191.     addi.w    #16,d2
  192.     addq.w    #1,d7
  193.     move.w    d1,(a6)+
  194.     move.w    d2,(a6)+
  195.     move.w    d7,(a6)+
  196.     move.w    #$0003,(a6)+
  197.  
  198.     addi.w    #16,d2
  199.     addq.w    #1,d7
  200.     move.w    d1,(a6)+
  201.     move.w    d2,(a6)+
  202.     move.w    d7,(a6)+
  203.     move.w    #$0003,(a6)+
  204.  
  205.     addi.w    #16,d1
  206.     subi.w    #32,d2
  207.     addq.w    #3,d7
  208.     move.w    d1,(a6)+
  209.     move.w    d2,(a6)+
  210.     move.w    d7,(a6)+
  211.     move.w    #$0003,(a6)+
  212.  
  213.     rts
  214. @@:
  215.     addi.w    #$4022,d7
  216.     move.w    d1,(a6)+
  217.     move.w    d2,(a6)+
  218.     move.w    d7,(a6)+
  219.     move.w    #$0003,(a6)+
  220.  
  221.     addi.w    #16,d2
  222.     addq.w    #1,d7
  223.     move.w    d1,(a6)+
  224.     move.w    d2,(a6)+
  225.     move.w    d7,(a6)+
  226.     move.w    #$0003,(a6)+
  227.  
  228.     addi.w    #16,d2
  229.     addq.w    #1,d7
  230.     move.w    d1,(a6)+
  231.     move.w    d2,(a6)+
  232.     move.w    d7,(a6)+
  233.     move.w    #$0003,(a6)+
  234.  
  235.     addi.w    #16,d2
  236.     addq.w    #1,d7
  237.     move.w    d1,(a6)+
  238.     move.w    d2,(a6)+
  239.     move.w    d7,(a6)+
  240.     move.w    #$0003,(a6)+
  241.  
  242.     subi.w    #16,d1
  243.     subi.w    #32,d2
  244.     addq.w    #3,d7
  245.     move.w    d1,(a6)+
  246.     move.w    d2,(a6)+
  247.     move.w    d7,(a6)+
  248.     move.w    #$0003,(a6)+
  249.  
  250.     rts
  251. *---------------------------------------
  252. mid2_s:
  253.     move.w    C_X(a1),d1
  254.     move.w    C_Y(a1),d2
  255.     subi.w    #16,d1
  256.     subi.w    #32,d2
  257.     tst.w    C_LR_F(a1)
  258.     bne    @f
  259.  
  260.     addi.w    #$0055,d7
  261.     move.w    d1,(a6)+
  262.     move.w    d2,(a6)+
  263.     move.w    d7,(a6)+
  264.     move.w    #$0003,(a6)+
  265.  
  266.     addi.w    #16,d1
  267.     addq.w    #1,d7
  268.     move.w    d1,(a6)+
  269.     move.w    d2,(a6)+
  270.     move.w    d7,(a6)+
  271.     move.w    #$0003,(a6)+
  272.  
  273.     subi.w    #16,d1
  274.     addi.w    #16,d2
  275.     addq.w    #1,d7
  276.     move.w    d1,(a6)+
  277.     move.w    d2,(a6)+
  278.     move.w    d7,(a6)+
  279.     move.w    #$0003,(a6)+
  280.  
  281.     addi.w    #16,d1
  282.     addq.w    #1,d7
  283.     move.w    d1,(a6)+
  284.     move.w    d2,(a6)+
  285.     move.w    d7,(a6)+
  286.     move.w    #$0003,(a6)+
  287.  
  288.     subi.w    #16,d1
  289.     addi.w    #16,d2
  290.     addq.w    #1,d7
  291.     move.w    d1,(a6)+
  292.     move.w    d2,(a6)+
  293.     move.w    d7,(a6)+
  294.     move.w    #$0003,(a6)+
  295.         
  296.     addi.w    #16,d1
  297.     addq.w    #1,d7
  298.     move.w    d1,(a6)+
  299.     move.w    d2,(a6)+
  300.     move.w    d7,(a6)+
  301.     move.w    #$0003,(a6)+
  302.  
  303.     subi.w    #16,d1
  304.     addi.w    #16,d2
  305.     addq.w    #1,d7
  306.     move.w    d1,(a6)+
  307.     move.w    d2,(a6)+
  308.     move.w    d7,(a6)+
  309.     move.w    #$0003,(a6)+
  310.  
  311.     addi.w    #16,d1
  312.     addq.w    #1,d7
  313.     move.w    d1,(a6)+
  314.     move.w    d2,(a6)+
  315.     move.w    d7,(a6)+
  316.     move.w    #$0003,(a6)+
  317.  
  318.     addi.w    #16,d1
  319.     subi.w    #32,d2
  320.     addi.w    #11,d7
  321.     move.w    d1,(a6)+
  322.     move.w    d2,(a6)+
  323.     move.w    d7,(a6)+
  324.     move.w    #$0003,(a6)+
  325.  
  326.     rts
  327. @@:
  328.     addi.w    #$4056,d7
  329.     move.w    d1,(a6)+
  330.     move.w    d2,(a6)+
  331.     move.w    d7,(a6)+
  332.     move.w    #$0003,(a6)+
  333.  
  334.     addi.w    #16,d1
  335.     subq.w    #1,d7
  336.     move.w    d1,(a6)+
  337.     move.w    d2,(a6)+
  338.     move.w    d7,(a6)+
  339.     move.w    #$0003,(a6)+
  340.  
  341.     subi.w    #16,d1
  342.     addi.w    #16,d2
  343.     addq.w    #3,d7
  344.     move.w    d1,(a6)+
  345.     move.w    d2,(a6)+
  346.     move.w    d7,(a6)+
  347.     move.w    #$0003,(a6)+
  348.  
  349.     addi.w    #16,d1
  350.     subq.w    #1,d7
  351.     move.w    d1,(a6)+
  352.     move.w    d2,(a6)+
  353.     move.w    d7,(a6)+
  354.     move.w    #$0003,(a6)+
  355.  
  356.     subi.w    #16,d1
  357.     addi.w    #16,d2
  358.     addq.w    #3,d7
  359.     move.w    d1,(a6)+
  360.     move.w    d2,(a6)+
  361.     move.w    d7,(a6)+
  362.     move.w    #$0003,(a6)+
  363.  
  364.     addi.w    #16,d1
  365.     subq.w    #1,d7
  366.     move.w    d1,(a6)+
  367.     move.w    d2,(a6)+
  368.     move.w    d7,(a6)+
  369.     move.w    #$0003,(a6)+
  370.  
  371.     subi.w    #16,d1
  372.     addi.w    #16,d2
  373.     addq.w    #3,d7
  374.     move.w    d1,(a6)+
  375.     move.w    d2,(a6)+
  376.     move.w    d7,(a6)+
  377.     move.w    #$0003,(a6)+
  378.  
  379.     addi.w    #16,d1
  380.     subq.w    #1,d7
  381.     move.w    d1,(a6)+
  382.     move.w    d2,(a6)+
  383.     move.w    d7,(a6)+
  384.     move.w    #$0003,(a6)+
  385.  
  386.     subi.w    #32,d1
  387.     subi.w    #32,d2
  388.     addi.w    #12,d7
  389.     move.w    d1,(a6)+
  390.     move.w    d2,(a6)+
  391.     move.w    d7,(a6)+
  392.     move.w    #$0003,(a6)+
  393.  
  394.     rts
  395. *---------------------------------------
  396. mid2_a:
  397.     move.w    C_X(a1),d1
  398.     move.w    C_Y(a1),d2
  399.     subi.w    #16,d1
  400.     subi.w    #32,d2
  401.     tst.w    C_LR_F(a1)
  402.     bne    @f
  403.  
  404.     addi.w    #$0055,d7
  405.     move.w    d1,(a6)+
  406.     move.w    d2,(a6)+
  407.     move.w    d7,(a6)+
  408.     move.w    #$0003,(a6)+
  409.  
  410.     addi.w    #16,d1
  411.     addq.w    #1,d7
  412.     move.w    d1,(a6)+
  413.     move.w    d2,(a6)+
  414.     move.w    d7,(a6)+
  415.     move.w    #$0003,(a6)+
  416.  
  417.     subi.w    #16,d1
  418.     addi.w    #16,d2
  419.     addq.w    #1,d7
  420.     move.w    d1,(a6)+
  421.     move.w    d2,(a6)+
  422.     move.w    d7,(a6)+
  423.     move.w    #$0003,(a6)+
  424.  
  425.     addi.w    #16,d1
  426.     addq.w    #1,d7
  427.     move.w    d1,(a6)+
  428.     move.w    d2,(a6)+
  429.     move.w    d7,(a6)+
  430.     move.w    #$0003,(a6)+
  431.  
  432.     subi.w    #16,d1
  433.     addi.w    #16,d2
  434.     addq.w    #1,d7
  435.     move.w    d1,(a6)+
  436.     move.w    d2,(a6)+
  437.     move.w    d7,(a6)+
  438.     move.w    #$0003,(a6)+
  439.         
  440.     addi.w    #16,d1
  441.     addq.w    #1,d7
  442.     move.w    d1,(a6)+
  443.     move.w    d2,(a6)+
  444.     move.w    d7,(a6)+
  445.     move.w    #$0003,(a6)+
  446.  
  447.     subi.w    #16,d1
  448.     addi.w    #16,d2
  449.     addq.w    #1,d7
  450.     move.w    d1,(a6)+
  451.     move.w    d2,(a6)+
  452.     move.w    d7,(a6)+
  453.     move.w    #$0003,(a6)+
  454.  
  455.     addi.w    #16,d1
  456.     addq.w    #1,d7
  457.     move.w    d1,(a6)+
  458.     move.w    d2,(a6)+
  459.     move.w    d7,(a6)+
  460.     move.w    #$0003,(a6)+
  461.  
  462.     addi.w    #16,d1
  463.     subi.w    #32,d2
  464.     addi.w    #12,d7
  465.     move.w    d1,(a6)+
  466.     move.w    d2,(a6)+
  467.     move.w    d7,(a6)+
  468.     move.w    #$0003,(a6)+
  469.  
  470.     addi.w    #16,d1
  471.     addq.w    #1,d7
  472.     move.w    d1,(a6)+
  473.     move.w    d2,(a6)+
  474.     move.w    d7,(a6)+
  475.     move.w    #$0003,(a6)+
  476.  
  477.     addi.w    #16,d1
  478.     addq.w    #1,d7
  479.     move.w    d1,(a6)+
  480.     move.w    d2,(a6)+
  481.     move.w    d7,(a6)+
  482.     move.w    #$0003,(a6)+
  483.  
  484.     rts
  485. @@:
  486.     addi.w    #$4056,d7
  487.     move.w    d1,(a6)+
  488.     move.w    d2,(a6)+
  489.     move.w    d7,(a6)+
  490.     move.w    #$0003,(a6)+
  491.  
  492.     addi.w    #16,d1
  493.     subq.w    #1,d7
  494.     move.w    d1,(a6)+
  495.     move.w    d2,(a6)+
  496.     move.w    d7,(a6)+
  497.     move.w    #$0003,(a6)+
  498.  
  499.     subi.w    #16,d1
  500.     addi.w    #16,d2
  501.     addq.w    #3,d7
  502.     move.w    d1,(a6)+
  503.     move.w    d2,(a6)+
  504.     move.w    d7,(a6)+
  505.     move.w    #$0003,(a6)+
  506.  
  507.     addi.w    #16,d1
  508.     subq.w    #1,d7
  509.     move.w    d1,(a6)+
  510.     move.w    d2,(a6)+
  511.     move.w    d7,(a6)+
  512.     move.w    #$0003,(a6)+
  513.  
  514.     subi.w    #16,d1
  515.     addi.w    #16,d2
  516.     addq.w    #3,d7
  517.     move.w    d1,(a6)+
  518.     move.w    d2,(a6)+
  519.     move.w    d7,(a6)+
  520.     move.w    #$0003,(a6)+
  521.  
  522.     addi.w    #16,d1
  523.     subq.w    #1,d7
  524.     move.w    d1,(a6)+
  525.     move.w    d2,(a6)+
  526.     move.w    d7,(a6)+
  527.     move.w    #$0003,(a6)+
  528.  
  529.     subi.w    #16,d1
  530.     addi.w    #16,d2
  531.     addq.w    #3,d7
  532.     move.w    d1,(a6)+
  533.     move.w    d2,(a6)+
  534.     move.w    d7,(a6)+
  535.     move.w    #$0003,(a6)+
  536.  
  537.     addi.w    #16,d1
  538.     subq.w    #1,d7
  539.     move.w    d1,(a6)+
  540.     move.w    d2,(a6)+
  541.     move.w    d7,(a6)+
  542.     move.w    #$0003,(a6)+
  543.  
  544.     subi.w    #32,d1
  545.     subi.w    #32,d2
  546.     addi.w    #13,d7
  547.     move.w    d1,(a6)+
  548.     move.w    d2,(a6)+
  549.     move.w    d7,(a6)+
  550.     move.w    #$0003,(a6)+
  551.  
  552.     subi.w    #16,d1
  553.     addq.w    #1,d7
  554.     move.w    d1,(a6)+
  555.     move.w    d2,(a6)+
  556.     move.w    d7,(a6)+
  557.     move.w    #$0003,(a6)+
  558.  
  559.     subi.w    #16,d1
  560.     addq.w    #1,d7
  561.     move.w    d1,(a6)+
  562.     move.w    d2,(a6)+
  563.     move.w    d7,(a6)+
  564.     move.w    #$0003,(a6)+
  565.  
  566.     rts
  567. *---------------------------------------
  568. mid2_t:
  569.     move.w    C_X(a1),d1
  570.     move.w    C_Y(a1),d2
  571.     subi.w    #16,d1
  572.     subi.w    #32,d2
  573.     tst.w    C_LR_F(a1)
  574.     bne    @f
  575.  
  576.     addi.w    #$0055,d7
  577.     move.w    d1,(a6)+
  578.     move.w    d2,(a6)+
  579.     move.w    d7,(a6)+
  580.     move.w    #$0003,(a6)+
  581.  
  582.     addi.w    #16,d1
  583.     addq.w    #1,d7
  584.     move.w    d1,(a6)+
  585.     move.w    d2,(a6)+
  586.     move.w    d7,(a6)+
  587.     move.w    #$0003,(a6)+
  588.  
  589.     subi.w    #16,d1
  590.     addi.w    #16,d2
  591.     addq.w    #1,d7
  592.     move.w    d1,(a6)+
  593.     move.w    d2,(a6)+
  594.     move.w    d7,(a6)+
  595.     move.w    #$0003,(a6)+
  596.  
  597.     addi.w    #16,d1
  598.     addq.w    #1,d7
  599.     move.w    d1,(a6)+
  600.     move.w    d2,(a6)+
  601.     move.w    d7,(a6)+
  602.     move.w    #$0003,(a6)+
  603.  
  604.     subi.w    #16,d1
  605.     addi.w    #16,d2
  606.     addq.w    #1,d7
  607.     move.w    d1,(a6)+
  608.     move.w    d2,(a6)+
  609.     move.w    d7,(a6)+
  610.     move.w    #$0003,(a6)+
  611.         
  612.     addi.w    #16,d1
  613.     addq.w    #1,d7
  614.     move.w    d1,(a6)+
  615.     move.w    d2,(a6)+
  616.     move.w    d7,(a6)+
  617.     move.w    #$0003,(a6)+
  618.  
  619.     subi.w    #16,d1
  620.     addi.w    #16,d2
  621.     addq.w    #1,d7
  622.     move.w    d1,(a6)+
  623.     move.w    d2,(a6)+
  624.     move.w    d7,(a6)+
  625.     move.w    #$0003,(a6)+
  626.  
  627.     addi.w    #16,d1
  628.     addq.w    #1,d7
  629.     move.w    d1,(a6)+
  630.     move.w    d2,(a6)+
  631.     move.w    d7,(a6)+
  632.     move.w    #$0003,(a6)+
  633.  
  634.     addi.w    #32,d1
  635.     subi.w    #32,d2
  636.     addi.w    #15,d7
  637.     move.w    d1,(a6)+
  638.     move.w    d2,(a6)+
  639.     move.w    d7,(a6)+
  640.     move.w    #$0003,(a6)+
  641.  
  642.     addi.w    #16,d1
  643.     addq.w    #1,d7
  644.     move.w    d1,(a6)+
  645.     move.w    d2,(a6)+
  646.     move.w    d7,(a6)+
  647.     move.w    #$0003,(a6)+
  648.  
  649.     rts
  650. @@:
  651.     addi.w    #$4056,d7
  652.     move.w    d1,(a6)+
  653.     move.w    d2,(a6)+
  654.     move.w    d7,(a6)+
  655.     move.w    #$0003,(a6)+
  656.  
  657.     addi.w    #16,d1
  658.     subq.w    #1,d7
  659.     move.w    d1,(a6)+
  660.     move.w    d2,(a6)+
  661.     move.w    d7,(a6)+
  662.     move.w    #$0003,(a6)+
  663.  
  664.     subi.w    #16,d1
  665.     addi.w    #16,d2
  666.     addq.w    #3,d7
  667.     move.w    d1,(a6)+
  668.     move.w    d2,(a6)+
  669.     move.w    d7,(a6)+
  670.     move.w    #$0003,(a6)+
  671.  
  672.     addi.w    #16,d1
  673.     subq.w    #1,d7
  674.     move.w    d1,(a6)+
  675.     move.w    d2,(a6)+
  676.     move.w    d7,(a6)+
  677.     move.w    #$0003,(a6)+
  678.  
  679.     subi.w    #16,d1
  680.     addi.w    #16,d2
  681.     addq.w    #3,d7
  682.     move.w    d1,(a6)+
  683.     move.w    d2,(a6)+
  684.     move.w    d7,(a6)+
  685.     move.w    #$0003,(a6)+
  686.  
  687.     addi.w    #16,d1
  688.     subq.w    #1,d7
  689.     move.w    d1,(a6)+
  690.     move.w    d2,(a6)+
  691.     move.w    d7,(a6)+
  692.     move.w    #$0003,(a6)+
  693.  
  694.     subi.w    #16,d1
  695.     addi.w    #16,d2
  696.     addq.w    #3,d7
  697.     move.w    d1,(a6)+
  698.     move.w    d2,(a6)+
  699.     move.w    d7,(a6)+
  700.     move.w    #$0003,(a6)+
  701.  
  702.     addi.w    #16,d1
  703.     subq.w    #1,d7
  704.     move.w    d1,(a6)+
  705.     move.w    d2,(a6)+
  706.     move.w    d7,(a6)+
  707.     move.w    #$0003,(a6)+
  708.  
  709.     subi.w    #48,d1
  710.     subi.w    #32,d2
  711.     addi.w    #16,d7
  712.     move.w    d1,(a6)+
  713.     move.w    d2,(a6)+
  714.     move.w    d7,(a6)+
  715.     move.w    #$0003,(a6)+
  716.  
  717.     subi.w    #16,d1
  718.     addq.w    #1,d7
  719.     move.w    d1,(a6)+
  720.     move.w    d2,(a6)+
  721.     move.w    d7,(a6)+
  722.     move.w    #$0003,(a6)+
  723.  
  724.     rts
  725. *---------------------------------------
  726.